{Samp( )stringwidth pop 2 div _RMoveX}forall

[288 216 144 96 72 60 48 36 28 24 20 18 16 14 12 11 10 9 8 7 6 5 4]

{showpage _DoPageHeader}if pop end}B

_curl _SetLeading currentpoint _botm le

_curl ^W 1.5 mul mul add neg _RMoveY

/_NextLine{WrapDict begin _leftm _MoveX _leading 1 ^W sub mul

}def

^F

/TestFont findfont exch _SaveScaleFont setfont

/Samp{

/_SaveScaleFont{dup /_curl xdf scalefont}B

300 _SetLeading _DoPageHeader